﻿Namespace Save

    Public MustInherit Class SaveException
        Inherits Exception

        Public Sub New(m As Object)
            _model = m
        End Sub

        Private _model As Object
        ReadOnly Property Model As Object
            Get
                Return _model
            End Get
        End Property

    End Class

End Namespace

